How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/mac/SHARED.DIR/01952_Script_THEATRE BUTTONS

Text File | 1995-09-13 | 9KB | 296 lines

Global gTBtn1, gTBtn2, gTBtn3, gTBtn4, gTBtn5, gLastMarker, gExit, gHelp, gWhichMovieNo, gwhichBilling, gNewMarker, gWhatMovie,ghowlong

--on birth me , theSprite , theNCast, theSound, theFunction, theCursor, theRolloverFunction

on TheatreSetUp1
  set ScriptNumber = the number of cast "aBiStableButton"
  set gTBtn1 = birth(script ScriptNumber, 5, 24, "FeatureButSplClk.AIFF", "PlayMovie1", "ProjectorCursor", "TheatreBilling1")
  set gExit = birth(script "aTheatreButton", 14, 47, "FeatureButSplClk.AIFF", "PreviousM", "HandCursor")
  set gHelp = birth(script "aTheatreButton", 13, 44, "FeatureButSplClk.AIFF", "TheatreHelp", "HandCursor")
  puppetsprite 17, true
  set gwhichBilling = the castnum of sprite 17
  set the castnum of sprite 17 = (gwhichBilling + gWhichMovieNo)
  updatestage
  sound stop 4
end

on TheatreSetUp2
  set ScriptNumber = the number of cast "aBiStableButton"
  set gTBtn1 = birth(script ScriptNumber, 5, 24, "FeatureButSplClk.AIFF", "PlayMovie1", "ProjectorCursor", "TheatreBilling1")
  set gTBtn2 = birth(script ScriptNumber, 6, 27, "FeatureButSplClk.AIFF", "PlayMovie2", "ProjectorCursor", "TheatreBilling2")
  set gExit = birth(script "aTheatreButton", 14, 47, "FeatureButSplClk.AIFF", "PreviousM", "HandCursor")
  set gHelp = birth(script "aTheatreButton", 13, 44, "FeatureButSplClk.AIFF", "TheatreHelp", "HandCursor")
  puppetsprite 17, true
  set gwhichBilling = the castnum of sprite 17
  set the castnum of sprite 17 = (gwhichBilling + gWhichMovieNo)
  updatestage
  sound stop 4
end

on TheatreSetUp3
  set ScriptNumber = the number of cast "aBiStableButton"
  set gTBtn1 = birth(script ScriptNumber, 5, 24, "FeatureButSplClk.AIFF", "PlayMovie1", "ProjectorCursor", "TheatreBilling1")
  set gTBtn2 = birth(script ScriptNumber, 6, 27, "FeatureButSplClk.AIFF", "PlayMovie2", "ProjectorCursor", "TheatreBilling2")
  set gTBtn3 = birth(script ScriptNumber, 7, 30, "FeatureButSplClk.AIFF", "PlayMovie3", "ProjectorCursor", "TheatreBilling3")
  set gExit = birth(script "aTheatreButton", 14, 47, "FeatureButSplClk.AIFF", "PreviousM", "HandCursor")
  set gHelp = birth(script "aTheatreButton", 13, 44, "FeatureButSplClk.AIFF", "TheatreHelp", "HandCursor")
  puppetsprite 17, true
  set gwhichBilling = the castnum of sprite 17
  set the castnum of sprite 17 = (gwhichBilling + gWhichMovieNo)
  updatestage
  sound stop 4
end

on TheatreSetUp4
  set ScriptNumber = the number of cast "aBiStableButton"
  set gTBtn1 = birth(script ScriptNumber, 5, 24, "FeatureButSplClk.AIFF", "PlayMovie1", "ProjectorCursor", "TheatreBilling1")
  set gTBtn2 = birth(script ScriptNumber, 6, 27, "FeatureButSplClk.AIFF", "PlayMovie2", "ProjectorCursor", "TheatreBilling2")
  set gTBtn3 = birth(script ScriptNumber, 7, 30, "FeatureButSplClk.AIFF", "PlayMovie3", "ProjectorCursor", "TheatreBilling3")
  set gTBtn4 = birth(script ScriptNumber, 8, 33, "FeatureButSplClk.AIFF", "PlayMovie4", "ProjectorCursor", "TheatreBilling4")
  set gExit = birth(script "aTheatreButton", 14, 47, "FeatureButSplClk.AIFF", "PreviousM", "HandCursor")
  set gHelp = birth(script "aTheatreButton", 13, 44, "FeatureButSplClk.AIFF", "TheatreHelp", "HandCursor")
  puppetsprite 17, true
  set gwhichBilling = the castnum of sprite 17
  set the castnum of sprite 17 = (gwhichBilling + gWhichMovieNo)
  updatestage
  sound stop 4
end

on TheatreSetUp5
  set ScriptNumber = the number of cast "aBiStableButton"
  set gTBtn1 = birth(script ScriptNumber, 5, 24, "FeatureButSplClk.AIFF", "PlayMovie1", "ProjectorCursor", "TheatreBilling1")
  set gTBtn2 = birth(script ScriptNumber, 6, 27, "FeatureButSplClk.AIFF", "PlayMovie2", "ProjectorCursor", "TheatreBilling2")
  set gTBtn3 = birth(script ScriptNumber, 7, 30, "FeatureButSplClk.AIFF", "PlayMovie3", "ProjectorCursor", "TheatreBilling3")
  set gTBtn4 = birth(script ScriptNumber, 8, 33, "FeatureButSplClk.AIFF", "PlayMovie4", "ProjectorCursor", "TheatreBilling4")
  set gTBtn5 = birth(script ScriptNumber, 9, 36, "FeatureButSplClk.AIFF", "PlayMovie5", "ProjectorCursor", "TheatreBilling5")
  set gExit = birth(script "aTheatreButton", 14, 47, "FeatureButSplClk.AIFF", "PreviousM", "HandCursor")
  set gHelp = birth(script "aTheatreButton", 13, 44, "FeatureButSplClk.AIFF", "TheatreHelp", "HandCursor")
  puppetsprite 17, true
  set gwhichBilling = the castnum of sprite 17
  set the castnum of sprite 17 = (gwhichBilling + gWhichMovieNo)
  updatestage
  sound stop 4
end

on TheatreRollover
  setNewFunction (gHelp, "TheatreHelp")
  if objectP (gTBtn1) then
    if hilight (gTBtn1) then exit
  end if
  if objectP (gTBtn2) then
    if hilight (gTBtn2) then exit
  end if
  if objectP (gTBtn3) then
    if hilight (gTBtn3) then exit
  end if
  if objectP (gTBtn4) then
    if hilight (gTBtn4) then exit
  end if
  if objectP (gTBtn5) then
    if hilight (gTBtn5) then exit
  end if
  if hilight (gExit) then exit
  if hilight (gHelp) then exit
end

on TheatreRolloverMovie
  if the movieRate of sprite 10 = 0 then
    set the movieRate of sprite 10 to 1
  end if
  setNewFunction (gHelp, "TheatreHelpMovie")
  if objectP (gTBtn1) then
    if hilight2 (gTBtn1) then exit
  end if
  if objectP (gTBtn2) then
    if hilight2 (gTBtn2) then exit
  end if
  if objectP (gTBtn3) then
    if hilight2 (gTBtn3) then exit
  end if
  if objectP (gTBtn4) then
    if hilight2 (gTBtn4) then exit
  end if
  if objectP (gTBtn5) then
    if hilight2 (gTBtn5) then exit
  end if
  if hilight (gExit) then exit
  if hilight (gHelp) then exit
end


on PlayMovie1
  set gWhichMovieNo = 1
  go to frame gLastMarker
end

on PlayMovie2
  set gWhichMovieNo = 2
  go to frame gLastMarker
end

on PlayMovie3
  set gWhichMovieNo = 3
  go to frame gLastMarker
end

on PlayMovie4
  set gWhichMovieNo = 4
  go to frame gLastMarker
end

on PlayMovie5
  set gWhichMovieNo = 5
  go to frame gLastMarker
end

on TheatreKill
  puppetsprite 17, false
  if objectP (gTBtn1) then
    hidecontrol (gTBtn1)
    set gTBtn1 = 0
  end if
  if objectP (gTBtn2) then
    hidecontrol (gTBtn2)
    set gTBtn2 = 0
  end if
  if objectP (gTBtn3) then
    hidecontrol (gTBtn3)
    set gTBtn3 = 0
  end if
  if objectP (gTBtn4) then
    hidecontrol (gTBtn4)
    set gTBtn4 = 0
  end if
  if objectP (gTBtn5) then
    hidecontrol (gTBtn5)
    set gTBtn5 = 0
  end if
  hidecontrol (gExit)
  set gExit = 0
  hidecontrol (gHelp)
  set gHelp = 0
  puppetsound 0
end

on StopTheMovie
  set WhichMovieNo = the castnum of sprite 10
  set ghowlong = the duration of cast WhichMovieNo
  if the movietime of sprite 10 < ghowlong then
    go the frame
  else
    SetWhichLatchedFalse
    set the movieRate of sprite 10 to 0
    go the frame +1
  end if
end

on TheatreBilling1
  set the castnum of sprite 17 = (gwhichBilling + 1)
  updatestage
end

on TheatreBilling2
  set the castnum of sprite 17 = (gwhichBilling + 2)
  updatestage
end

on TheatreBilling3
  set the castnum of sprite 17 = (gwhichBilling + 3)
  updatestage
end

on TheatreBilling4
  set the castnum of sprite 17 = (gwhichBilling + 4)
  updatestage
end

on TheatreBilling5
  set the castnum of sprite 17 = (gwhichBilling + 5)
  updatestage
end

on TheatreHelp
  if gWhatMovie = "VTheatre" then
    puppetsound "SV143100.AIF"
    updatestage
  else
    if gWhatMovie = "ATheatre" then
      puppetsound "SA143100.AIF"
      updatestage
    else
      if gWhatMovie = "ETheatre" then
        puppetsound "SE143100.AIF"
        updatestage
      end if
    end if
  end if
end


on TheatreHelpMovie
  SetWhichLatchedFalse
  go the frame + 1
  if gWhatMovie = "VTheatre" then
    puppetsound "SV143100.AIF"
    updatestage
  else
    if gWhatMovie = "ATheatre" then
      puppetsound "SA143100.AIF"
      updatestage
    else
      if gWhatMovie = "ETheatre" then
        puppetsound "SE143100.AIF"
        updatestage
      end if
    end if
  end if
  abort
end

on clearAll
  if objectP (gTBtn1) then
    reset (gTBtn1)
  end if
  if objectP (gTBtn2) then
    reset (gTBtn2)
  end if
  if objectP (gTBtn3) then
    reset (gTBtn3)
  end if
  if objectP (gTBtn4) then
    reset (gTBtn4)
  end if
  if objectP (gTBtn5) then
    reset (gTBtn5)
  end if
end

on SetWhichLatched
  if gWhichMovieNo = 1 then
    setlatched(gTbtn1)
  else
    if gWhichMovieNo = 2 then
      setlatched(gTbtn2)
    else
      if gWhichMovieNo = 3 then
        setlatched(gTbtn3)
      else
        if gWhichMovieNo = 4 then
          setlatched(gTbtn4)
        else
          setlatched(gTbtn5)
        end if
      end if
    end if
  end if
end

on SetWhichLatchedFalse
  normalState(gTbtn1)
  normalState(gTbtn2)
  normalState(gTbtn3)
  normalState(gTbtn4)
  normalState(gTbtn5)
end